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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Paansrenecee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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i FACILITY: COBOL SUPPORT 
: ABSTRACT: 


This module contains the routine that converts quadword numbers 
to floating. 


VERSION: 1 
HISTORY: 
AUTHOR: 
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Marty Jack, 14-Mar-1979 


MODIFIED BY: 
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; Edit History for Version 1 of COBCVTOF 


Licit. RKR 17-JULY-1979 
SCNV_IN_DEFG to OTS$CVT_T_D 


whine, shares RKR 18-OCT-79 


Page 3) | 


6C 29 67 49 29 04 
00000 


M13 
ct Quad to Floating 15-SEP 


NNN NA AAA AAAAAO 


PWN —OOONOUE WO 
. 


Bs 


: the high 


6-SEP 
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; INCLUDE FILES: 


SOSCDEF 


: EXTERNAL SYMBOLS: 


-DSABL GBL 


-EXTRN OTSSCVT_T_D 


: PSECT DECLARATIONS: 


.PSECT _COBSCODE 


: EQUATED SYMBOLS: 
: NONE 


OWN STORAGE: 


: "the follo ing constant has the value 2**32. 
its and for compensating for unsigned arithmetic. 


»PACKED 4294967296 


Bia 
BIAS ‘p1GiTs=10 


00 
TCOBCVTOF MAR; 1 


; Prevent undeclared symbols from being 
3 automatically global 


. G Format Converison Routine 


PIC, SHR, LONG, EXE, NOWRT 


It is used for scaling 
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1-004 COBSCVTOF_R8 : gaSep-19be fO:c8:59 Ledante.eeevcoucuTos.mar;1 2° 
oe ! 1 -SBTTL COBSCVTQF_R8S 
8 198 s+ 
! ¢ 3; FUNCTIONAL DESCRIPTION: 
096 106 3 Converts 64-bit (quadword) numbers to floating. 
808 108 : CALLING SEQUENCE: 
006 109; 
$94 119 ; JSB COBSCVTQF_R8 (scale.rl.v, src.rq.r, dst.wf.r) 
9006 11g ; Arguments are passed in R6, R7, and R8. 
0006 114 : INPUT PARAMETERS: 
0006 115; 
0006 116; SCALE.rl.v The power of ten by which the internal 
0006 117; repessrosas a of the source must be 
0006 118; tiplied to scale the same as the 
0006 119; Internal representation of the dest. 
4+ ! Y 3 SRC.rq.r The number to be converted 
0006 1 : : IMPLICIT INPUTS: 
0006 123; 
R289 , : : ALL of the trap bits in the PSL are assumed off. 
9006 136 : OUTPUT PARAMETERS: 
Babe 1$8 : DST.wf.r The place to store the converted number 
0006 150 : IMPLICIT OUTPUTS: 
0006 131; 
0006 135 3 NONE 
0006 133; 
0006 134 ; FUNCTION VALUE: 
0006 135; 
0006 136; 1 = SUCCESS, 0 = FAILURE 
0006 137; 
0006 138 ; SIDE EFFECTS: 
0006 139; 
0006 140 ; Destroys registers RO through R8. 
0006 141; 
0006 196 i: 
0006 14 
3209 144 
006 145 COBSCVTOQF _R8:: 
cs 8 @ Be68 138 SOBL2.  -#40,SP : Space for temp string and result 
Babe 168 : Convert the quadword input to packed. 
04 A7 67 OF 1F' EC 9009 150 ° CMPV #31,81,(R7) ,4(R7) : Is number in longword range? 
07 is OOF 151 BNEQ : Br if not to slower code 
08 AE 13 67 F 011 13 CVTLP = (R7), #19, 8(SP) : senvert Low order longword 
<0 11 B18 12 BRB 13$ code 
6E 04 A F9 1 154 118: CVILP = 4(R7) , #10, ¢ onyert i ohigh order longword 
13 6€ OA OF MF os OA 25 otce 155 MULP ss BIAS ‘DIGITS BIAS.#10, my #19, 8(SP) 
$6 156 ; Multiply by 2**32 
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6 157 CVTILP = (R7) , #10, (SP) ; Convert low or longword 
6 A 1 8 8 Br if nonnegati 
6— OA DO AF OA 1 ADDP4 #BIAS_DIGITS,BIAS,#10, (SP) 
160 Correct for signed conversion 
08 AE 13 6€ OA 20 193 | 12$: ADDP4 = #10,(SP),#19,8(SP) : Sum low and high order parts 
8 188 Convert the packed intermediate to leading separate. 
14 AE 13 OB AE 13 08 8 : 192 | (38: CVTPS #19,8(SP),#19,20(SP) ; Make a separate sign string 
a 187 : Make a descriptor for the leading separate string. 
53D $6 F 185 ; PUSHL R3 ; Address = temp string 
7E 01 90 Boe, 170 MOVB #OSCS$K_CLASS_S,-(SP) ; Class = static 
7E OF 90 0044 171 MOVB #DSCSK_DTYPE_T,=(SP) ; Data type = ASCII text 
7E 14 860 Boer 176 MOVW #20,-(5P) 3 Length = 20 bytes 
BOCA \re : Now call the conversion routine. 
7E 56 CE 004A 176° MNEGL R6,-(SP) : Scale factor 
00 DD 004d 177 PUSHL #0 : Digits in fraction 
10 AE QF O04F 178 PUSHAB 19 tse} ; Address of result area 
OC AE OF poe 17 PUSHAB 12(SP) :; Address of descriptor 
00000000'GF 04 FB 005 180 CALLS #4,G*OTSS$CVT_T_D : Call the routine 
0D 50 +4 005C 181 BLBC RO,15$ 3; Failure, must be overflow 
68 08 ag 6 OOSF 136 CVTIDF 8(SP),(R8) 3; Store result 
0 1D 0063 18 BVS 15$ ; Br if overflowed 
50 01 DO 0065 184 MOVL #1,R0 ; Indicate success 
5E 30 CO 0068 185 14$ ADDL2 #48,SP ; Delete stack temps 
05 Boer 138 RSB ; Return 
Oper 138 ; Come here on overflow to store the reserved operand. 
68 O1 OF 78 O006C 190 15$:  ASHL #15,#1,(R8) ; Store reserved operand 
50 D4 0070 191 CLRL RO : Indicate failure 
F4 11 0072 = #192 BRB 14$ : Delete stack temps and return 
0074 193; 
0074 194 END 
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Symbol table 6-S Sfpn49 24 COBRTL.S REIe COBCVTQF .MAR; 1 (4) 
BIAS 09 00 R 02 
BIAS_DIGITS = A 
COBSCVTQF_RB ° 6 RG 02 
DSCSK_CLASS_S = 00001 
DSCSK_DTYPE_T = QQO00000E 
OTS$SCVT_T_D eereeeeer YX 00 
¢ewanm se emoanwsocacne + 
: Psect synopsis : 
PSECT _name Allocation PSECT No. Attributes 
ABS 00000000 5° 00 é 0.) NOPIC USR CON ABS LCL ote NOEXE NORD wount NOVEC BYTE 
ABSS 00000000 0.) BS NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
COBSCODE 00000074 116.) 02 ¢ 2. PIC USR CON REL LCL SHR’ EXE RD NOWRT NOVEC LONG 
peewee ere ee ere mem mecca aan aone $ 
: Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00:00:00.06  00:00:01.16 | 
pomnene processing 119 00:00:00.29 00:00:02.78 
139 B88: 00° 45 00:00:05.83 
Synbol table sort 0 00:00:00.11 00:00:00.56 
Pass 2 50 00:00:00.39 00:00:02.51 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 344 00:00:02.05 00:00:12.89 
The working set Limit was 1050 pages. 


8737 bytes (18 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space we eceree to hold 135 non-local and 5 local symbols. 
194 source lines were read in Pass 1, producing 10 object records in Pass 2. 

8 pages of virtual memory were used to detine macros. 


Py 


Macro Library name 


_$255$DUA28: CSYSLIBJSTARLET.MLB; 2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRE SSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:COBCVTQF /OBJ=OBJ$:COBCVTQF MSRC$:COBCVTQF /UPDATE=(ENH$: COBCVTOF ) 
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